RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


wef 


eae 


ed ee ee ee ee ee ed 
a ee ed ed ee ee ens 


a a ee ee ee er ron 


GG 
GG 
QQ 
QQ 


GGGGGGG 
GGGGGGG 
SS GG GGGGGG 
SS GG G6G6GG6GG 
GGGGGG 
GGGGGG 


— 
4 
= 
oO 
” 
= 
& 
- 
a 
ot 
co 
* 
w 
=) 
— 
_— 
* 
* 
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' 
Version: *v04-000' 
i eeerererrerrerereererertereerereeteeeerennereneneeeeeerereerereeerenteteeres 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
' DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE 44 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:® Tobias ons om ANCE oe THE TERMS OF SUCH LICENSE AND WITH THE 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
b aeRPORATI ON NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
e 
a 
*® 
e 
® 
® 
® 
oa 
' % 
it TRANSFERRED” . 
® 
® 
® 
* 
* 
® 
* 
* 
® 
* 


Lee RRR ERAS 
' 


oe 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i ABSTRACT: 

i Contains a toneisre list of error —— and other messages that 

are used by R - They are in a ma form so that they can be parsed 
twice: once to build the GLOBAL LITERAL table of error names and the 
second time to build the UPLIT containing the text of each message. 


It also contains all noqeeeery macros except the GENERATE macro, which 
is defined as it is used within RNFERM.BLI. 


GENERATE macro paramters are: 

<severity>, <error code>, <error text>, <concise text> 
Defines all messages for DSR and DSRPLUS. 
i MODULE REQUIRING IN THIS FILE: 


RNFERM.BLI 
i ENVIRONMENT : Transportable BLISS 
i AUTHOR: Ray Marshall CREATION DATE 24-Jul-1981 


MSGTXT.REQ;1 


| ee BY: 
043 


042 
041 


040 


039 
038 
037 


036 


035 


034 


033 
032 


031 


030 
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KFA00043 Ken Alden 17-0¢t-1983 
Reworded IPF. 

KFA00042 Ken Alden 07-0ct-1983 
Corrected spelling errors. 

KFA00041 Alden 06-0c t-1983 
Added IPF for ny 7PAGES “qual ifter. 
KFA00040 Ken Alden 07-Sep-1983 


8 
Altered text on CJL to more closely reflect the actual 
error. 


REM00039 Marshall 26-Jul-1983 
Allowed MDC & mpi. or all DSRPLUS implementations. 
KFA00038 Alden 15-Jul-1983 

Added MDC, MDI or “guitiale do contents, index. 
KFA00037 Alden 14-Jul-1983 
Removed CR3. cCRI emit be used instead) 

KFA00036 Alden 13-Jul-1983 


Took the period off NCN, CRI, CR2. 

Changed EOT to EOT. 

Changes in gg ig hyphen from FCR & CND. 
PC6 renamed to CRU informational --> warning. 
CRU named to CRC. 

Wording changes to CR!, CR2. 


REM00035 Ray Marshall 27-Jun-1983 
Add RNFPC6 to report the number of unresolved cross-ref's. 
KAD00034 Keith Dawson 13-Jun-1983 


Removed DTL, DVR, PSI messages to support new behavior of 
/DOWN (in TOPPAG). 


KAD00033 Keith Dawson 9- par lsss 
Changed wording of CR1 == no ‘’/INTER' 


KAD00032 Keith Dawson 6-Jun-1983 
Fixed glitches in alpha order (DRN, NED messages). 


AD00031 Keith Dawson 27-May-1983 

Add CRO, CR3 termination messages for YosciLlating cross- 
references in the pathological case. Cleaned up and made 
consistent some messages from .SET COUNTER/ TEX Ap and 
REF when in ut name 1s in error: (new) DRN, 
(deleted) RMS; (changed wording) NRN. 


KAD00030 Keith Dawson 99-May-1983 

Remove support for .DX, .PX. This involves redefining 
messages DX1 and DX2, and renoving : eee, removed DWF 

(Date won't fit on subtitle), no nant used. 


2 
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027 
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025 


024 


023 


022 
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020 
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KFA00029 Ken Alden 5-May-1983 z 

For DSRPLUS, added CUI,JUI,TUI for spawned utilities info. 
Added '’.” before RESTORE in MSR. 

FAD, NTF, NCN, AMC, CNE, EOT 


KAD00028 Keith Dawson 21-Apr-1983 
Moved NCS message (was out of order). Added IDD message, 
Invalid display descriptor. 


KAD00027 Keith Dawson 14-Apr-1983 
Deleted NIB, PND, RND errors -- not used. 


KAD00026 _ _ Keith Dawson 13-Apr-1983 
Changed wording of RNFNCD message. 


KAD00025 Keith Dawson 11-Apr-1983 

Added error messages for $$entities, cross-referencing, and 
termination process tna: 
BCR, CND, CRU, CR1, CR2, CVM, FCR, I1B, IVB, NCD, NIB, NPN, 
NRN, PC2, PCS, PC4, PC5, PNA, PND, PNV, RMS, RND 


KFA00024 Ken Alden 21-Mar-1983 
Removed IPF, ITN. 
KAD00023 Keith Dawson 20-Mar-1983 


In service to removing LNO1 conditionals and all references 
to .BIX and .BTC files, removed COT and COX error messages. 
Deleted unused error messages: ITS LOM MD1 NFS SPO vvZ 


REROOO022 Ron Randall 19-Mar-1983 
Added several error pesseges related to topncotes: 
CRT CIN CWT ETD IIT ITN TLE 


KFA00021 Ken Alden 18-Mar-1983 
Made NCS, TMS, and WFR visible to DSR. 
KAD00020 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (ibrary. 


#eF | 
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ZSBITL "MSGTXT.REQ -- Message definitions’ 
MACRO 
error_list = 
ZIF NOT XBLISS(BLISS16) XTHEN 
o "AAA' 


generate ('F', 
"Message text tile doesn''t align with VMS message file’, ''), 


aFI 


ZIF DSRPLUS XTHEN 
generate (‘E*, ‘AMA’, ‘Ambiguous attribute ‘%S'' ignored’, *$S'), 
_ generate ('E", ‘AMC’, ‘Ambiguous Counter or Textstring name '%S"' ignored’, '%S"), 


generate (‘I', ‘BAK’ 
*See command on input Line %C of page %1 of file ‘%s'", '"), 
ZIF DSRPLUS XTHEN 


generate ("E*, ‘BCR’, 
‘Bad cross-reference record in input .BRN file ‘XA’, ''), 


XFI 

enerate ('E*, ‘BMS’, ‘Bad margin specification: ‘%S'', '%S"), 
ZIF DSRPLUS XTHEN 
ert generate ('E', ‘'BRN', ‘Illegal Referencepoint name: ‘"XS'", '%S"), 


generate (‘E*, ‘BVN', ‘Missing or illegal variable name: '%S''', '%S'), 


ZIF DSRPLUS Z%THEN 
generate (‘W', ‘CAS’, 
"Conflicting attributes in SEND CONTENTS command’, ''), 
ort generate (‘'W', "CBD', ‘ZS can''t be used as XPLUS default’, '%S'), 


generate (‘F*, ‘CEM’, 
generate (‘'W', ‘CJL’, ; aap en 
“ **t output Line correctly -- margins too narrow. Line will not be justified’, ''), 
ZIF DSRPLUS XTHEN 
generate (‘W', ‘CND', 
*Referencepoint name "XS" not defined -- not resolved’, ‘%S'), 
generate (‘W', 'CNE‘, ‘Counter ‘'%S'' not yet defined -- not resolved’, ‘'%S'), 


generate (‘'W', ‘CNF', ; 
"Character string expected, not found: ‘%S‘*" RS"), 


"Comma expected, missing: ‘"XS'"', ‘%S"), 


xFI 


generate ('W', "CNS', ‘Command not supported: ““ZN'' '} de 
generate (‘F', ‘COB’, ‘Can''t open binary output file “zs''', xs"), 
generate ("W*, "COF', ‘'Can''t open footnote work file ‘'ZS'", ‘ZS"), 
generate (‘F', ‘COI', ‘Can''t open input file i Sa *ZS') 

generate ('F*, 'COO', ‘Can''t open output file ‘‘Zs'" , "as'S, 
generate ('W', ‘COR’, ‘Can''t open required file ‘%S"", ‘%S'), 


ZIF DSRPLUS ZTHEN 
generate (‘W', ‘CRC’, 

ert ‘One or more forward cross references changed in this run', ''), 
generate ('W', ‘CRF', ‘Can''t read back saved footnotes’, ''), 


ZIF DSRPLUS ZTHEN 


. 
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' 
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' 
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' 
. 
' 
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t 
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generate (‘W', ‘CRO', | 
Oscillating cross references: cannot complete automatic processing’, ''), 

| 

| 


<F 1 
tir ema ae | , ATHEN 
generate (‘F', "CRP", ‘Can''t recognize page on /PAGES qualifier’, ''), 


ZELSE 
ert generate ('F', ‘CRP’, ‘Can''t recognize page on /PAGES switch’, '"), 
Z%1F DSRPLUS ZTHEN 
generate (‘'E*, ‘CRT’, ‘'Can''t read back saved topnote', ''), 
generate (‘w', ee ', "EN unresolved cross reference%X encountered’, '%N'), 
generate (‘1", *CRI° 
Run DSPLUS/DéBUG=CROSS to see which one(s) are affected’, '"), 
generate (‘I', ‘CR’, 
Or rerun . DSRPLUS/ CROSS again if you need cross references correct’, ‘''), 
generate (‘E', ' an''t open topnote work file. “2. ¢ oe Py 
generate (‘I', "CUl’, ‘CONTENTS utility completed %S', ‘'), 
generate. ("E*, *CVm’ 
*COMTENTS 
FI 


generate (‘W', "CWF', ‘Can''t write footnote file (%N)', '(%N)"), 


Z1F DSRPLUS ibe 
generate (‘E', ‘CWT, *Can''t write topnote file (%N)', "(%N)'), 
generate (‘E', r*. 
"Delimiter character "%S'' in use as a flag; command ignored', ‘%S'), 


enerate ('W', ‘DNS’, *.NO SPACE illegal in this context’, ''), 
ZIF DSRPLUS XTHEN 
generate (‘'W', "DRN', "Duplicate Referencepoint name: ‘'%S'"', '%S"), 


generate (‘W', ‘DVN’, ‘Duplicate variable mame: ‘%S'', '%S"), 


ZIF DSRPLUS XTHEN 
generate (‘'W', "Dx1', 


| 
| 
| 
version mismatch in input .BRN file ‘XA'', ''), 
| 
| 
} 


*In=core ndexing (.PRINT INDEX) is no longer supported.', ''), 
generate (‘wW', ‘Dx2', 
"Instead, "specify DSRPLUS/INTERMEDIATE and .REQUIRE ‘‘file.RNX'' here.’, '"), 


ZELSE 
generate (‘W', ‘Dx’, 
*In=core ndexing (.DO INDEX/.PRINT INDEX) is no longer supported.', ''), 
generate ('W', ‘Dx2', 
ort "Instead, "specify RUNOFF/INTERMEDIATE and .REQUIRE ‘‘file.RNX'' here.', ''), 


generate (‘'W', ‘EFD', *.END FOOTNOTE doesn''t terminate .FOOTNOTE’, ‘'), 
ponerets ("w', "ELD", ".END LITERAL doesn''t follow .LITERAL', ''). 

ZIF DSRPLUS XTHEN 

at generate ('W', ‘EOT', ‘Error opening specified .TBL file’, ''), 


ZIF DSRPLUS ZTHEN 
generate (‘I', ‘ERD’, 


esses . -— 


xFI 
generate (‘'W', ‘EVL', ‘Too many variables: ‘X%S''', '%S"), 
enerate ('W', ‘FAB’, ‘File aborted’, ''), 
ZIF DSRPLUS ZTHEN 
generate ("E', ‘FAD’, ‘Found a delimiter -- not allowed in this context''%S'",'%S"), 


<F1 
enerate ("E*, "FAU', ‘Flag character ‘%S'’ already in use’, '%S"), 
ZIF DSRPLUS XTHEN 
generate (‘'I', ‘FCR', 
‘This Referencepoint changed a forward cross reference’, ''), 
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Bei Se "DSRPLUS Version %V: XN diagnostic message%X reported’, ''), : . 
afl generate (‘I', ‘ERD’, "DIGITAL Standard Runoff Version %V: XN diagnostic message%X reported’, '"), iow 
ZIF NOT ZBLISS(BLISS16) XTHEN 
ari generate (‘I", "ERR', ‘Illegal message: RNFERR', ‘''), 
ZIF DSRPLUS ZTHEN 

generate (‘W', ‘ESF*, ‘Too ooy subindex flags in SORT oer ing ""), 

generate ('E', "ETD', '.END TOPNOTE doesn''t terminate .TOPNOTE', '*), 


ZF I 
generate (‘W', ‘FEL’, ‘'%S flag at end of Line ignored’, '') 
generate (‘W', ‘FNA', ‘Flag not allowed in this context: se "25", 


generate (‘w', "RUF. "Footnotes won''t fit on pace’, ‘'') 


‘Given footnote count incorrect. Correct value 
generate (‘W', ‘IB0', ‘Input buffer overflow: ‘ZS’ 
generate (‘E', ‘IDD', ‘Invalid display deseripe r 
ponerete (‘w', “IFT*, ‘Illegal in footnote: ‘%s'" 

ZIF OSRPLUS ZTHEN 


generate (‘I', ‘GFC', 
generate (‘E', ‘IIB’, ‘Invalid format in input .BRN file ‘Xa’, ''), 


ZF I 
generate ('W', "IIF*, ‘*%S ignored’, ‘*%S"), 
ZIF DSRPLUS XTHEN 
generate (‘E', ‘IIT’, ‘Illegal command in topnote: “as *ZS'), 
_ generate (‘E', "IkwW', ‘Invalid attribute keyword ‘ZS’, ‘%S'), 
generate (‘W', ‘ILC’, ‘Illegal command: ‘%S'"', '%S') 
generate (‘E', ‘ILE’, ‘Internal logic erro (2$)", 2"), 
generate (‘W', ‘INI’, ‘Improperly nested: ‘ZS, 'xS' 
generate (‘W', ‘INM', ‘Illegal number value: reggie ese), 
generate (‘W', ‘IPF’, 

"Document does not contain specified page(s)’, *"), 
generate ('w', ‘ITC’, ‘Index entry too complicated or long), '') 
generate (‘W', "ITD', ".IF commands nested too deeply: 2S", '%§"), 

ZIF DSRPLUS XTHEN 
generate ( 


*, ‘INDEX ucet ity completed %S‘', ‘' 
0 


pt be I ) 
generate (‘E', B', ‘Invalid version in input .BRN file "ZA", *"), 


tFI 


F 
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IF XBL1SS(BLISS32)_ | XTHEN 
xeise Semerate (F*. ‘IVS", "Illegal /VARIANT qualifier’, ''), 


art generate (‘F', ‘IVS', ‘Illegal /VARIANT switch’, ''), 


generate (‘w', ‘YEC', ‘Unexpected text at end of command: ‘%S', '%S"'), 
generate (‘W', "LDE', 

‘Literal dogsne it end with .END LITERAL: ‘"%S''*, '%S"'), 
fenerene. é a", "LOC 

‘o utpyt pa one. ‘4; on input Line %C of page %1 of ho “eas Re 
generate. (' ‘Line too complicated: Ss’, 'xS' 


ZIF DSRPLUS XTHEN 
generate ("E', ‘MDC’, 
"Only one .DO CONTENTS command allowed -- this one ignored’, ''), 
generate (‘E’, 
ert ‘Only one .DO INDEX command allowed -- this one ignored’, ''), 


generate (‘W', "MEI", "Missing at least one .ENDIF command’, '') 
generate ('W', ‘MFN', ‘Number illegal or ill-formed: “"%S'', '%S' j, 
generate (‘w', "MFS*, 

‘Missing or improperly delimited file spec: ‘XS'"", '%S"), 


ZIF DSRPLUS ZTHEN 
ert generate ("E*, 'MMD', ‘Mismatched delimiters; command ignored’, '%S'), 


generate (‘w', *MNL*, ‘Missing number or letter: "XS", ‘%S"'), 
generate ('W', ‘MQS', 
sRissing or mingroperly delimited quoted string: ‘ZS’, ‘%S"), 
generate ( 
generate ('‘ we: ARG" 
‘Margins crossed, or attempted indent too far right’, ''), 
generate ('W', ‘MRS', 
"Missing one or more .RESTORE command(s) at end of file’ e "Re 


ZIF DSRPLUS ZTHEN 
generate ("E'. *NCD', ‘Matching closing delimiter not found’ F es 
generate ("E', "NCN', ‘Negative Counters are not allowed’, ''), 


2FI 


generate (‘W', "NCS", 
"No corresponding SAVE for attempted RESTORE’, ‘'), 


ZIF DSRPLUS ZTHEN 
generate (*w", *NDC', "No "ZS" number currently defined’, ‘''), 
generate, (*w*, “NDR’, 
"No XS’ number defined at given Referencepoint’, ‘'), 
_ generate ("I', 'NED', "DSRPLUS Version %V: No errors detected’, ''), 


generate (‘W', ‘NIA', ‘Negative indent attempted’, *"), 
generate (‘W', "NIC', ‘Another IN negative a Te detected and accumulated. Now being reported’, 


Another %N crossed margin or bad right indent attempt%X detected and accumulated. 


7S}. 


Now being reported 


$L11 


$L11 
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ZIF DSRPLUS %THEN 


generate ("E*, 'NNA', ‘Negative number not allowed: ‘%S'", '%S') 
generate ("E*, "NPN', ‘Symbol ‘'$$%S'' may not have parameter name’, ''), 
RELSE generate ("E*, "NRN', ‘No Referencepoint name found', ''), 
generate ("I', ‘NED’, 
el "DIGITAL Standard Runoff Version %V: No errors detected’, ‘*'), | 


generate ('w', "NSF* 
.END LIST/NOTE not in same file as .LIST/.NOTE: ‘XS’, "%S"), 


ZIF DSRPLUS XTHEN 

generate ("E', ‘NSP’, ‘SORT= not allowed with PERMUTE’ et 
_ generate ('E', 'NSS', "No string specified on %S', '%S"), | 
generate ('W', "NTD', ‘Files nested too deep: ‘'%S'"", '%S'), 


ZIF DSRPLUS ZTHEN 


generate (‘'E', "NTF*, "No Counter or Textstring name on is Sy int J 
generate ('E', ‘NVS', "No value specified on keyword’, '') 
generate (‘E', ‘OAG' 

‘Opposite attribute already given, ‘%S"' ignored’, ‘%S'), 
generate C°I*, SOFT®, 

‘File type "’.RNO"' not found. Processing file ‘XF''', "Using %F"), 


xFI 


generate (‘I', ‘PC1', ‘Illegal message: RNFPCI', '*) 
generate ('I', pests "EN index record%X written to '%B'", "XN in %B"), 
generate Coa, *PC : 
table-of-contents record%XxX written to "%B'", "XN in %B'), 
ZIF DSRPLUS <THEN 


generate . I*, *PC4', ‘ZN cross-reference record%X written to ‘'%B'"', '%N in %B"), 
—_ generate (‘'I', PCS", ‘ZN cross-reference record%X read from ‘ZA''', "XN in %A'), | 
ate ("I", "PCT’, ‘ZN page%X written to ‘X0'"', ‘ZN in %0'), 
ZIF DSRP US eSTHEN 
generate c“e*,, "ran", 
"Parameter name not allowed on Counter or Textstring'’, ‘'), 
generate ("E*, "PNV", 
"Parameter name “ZS"' not valid in this context’, '%S"), 


generate (‘'W', ‘PWF', ‘Page number won''t fit on title’ ee 
generate ("W', "QST’, "Quoted string too long: xs’, '&S"), 


generate (‘w', *RTL?, ‘Input record too long: truncated "XS", '%S'), 
generate (*w' 
-ENDIF/. use not in same file as .IF/.IFNOT: "ES", 'XS"), 


xFI 


generate (‘W', ‘SSR’, ‘Restricted character ‘*\"* (octal 34) encountered in text, ignored’, ''), 
generate (‘W', ‘STD’, 
*Too . any nested: -NOTES ange AISTos “ES, °86°), 
generate ( *STR 
generate (' ue *TAR', 


ae i me 


1 
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- @ 
rm 
o-m 
“oO 
ww "Ss 
me 
-a 
a 
_—_ 
os 
$ $ 
—~e 


REQUIRE command: "ss", "Ee Re 
ew end commands’, ‘'), 


="F ™SRPLUS ing 
generate (‘E’, LET. ‘Topnote length exceeds total page size’, ‘"), 
generate ('E', 'TMA', ‘Too many attributes; Pas! ignored’, ‘%S"), 


ba 


generate (‘w', ‘TMF’, 
| ‘Too many footnotes, excess footnotes merged’, ''), 


{SIF SBLiSS(BLISS32) THEN 
| wei se generate ('F', ‘TMP’, ‘Too many page ranges on /PAGES qualifier’, '"), 
eft generate ('F', "TMP’, ‘Too many page ranges on /PAGES switch’, '"), 
generate ('W', ‘TMS’, 
‘Too ahs Seyes, corresponding .SAVE and .RESTORE ignored’, ''), 
generate ( ™T 
‘Too many “tab settings; excess ignored: A *%S"), 
generate (‘F*, ‘TMV’, ‘Too many /VARIANTs' F 
ponerete ("w', "TTL', "Text too long: ‘%S'", 14g" a. 
ZIF DSRPLUS XTHEN 


generate (‘I', ‘Tul’, ‘TABLE utility completed %S', '') 
ert generate ('W', ‘UDC’, ‘Undefined Counter or etettines "omgse, gst), 
generate (‘w', *UDS', ‘Undefined symbol: > Bi *%S') uP 
generate (‘W', ‘UME’, ‘Unmatched end commend cigs ZS"), 
generate one * 


"URE!" Unrecoverable error “ogess.ing, record %C on page %1 of input file ‘ZF’, 
generate (‘w', *URR, "Unrecognized reques..« ‘ZN''', ‘%N'), 
generate ('w', ‘WF 

-RESTORE not ie” same file as .SAVE/.SAVEALL: ‘XS’, ‘%S") 


!! ZIF NOT ZBLISS(BLISS16) ZTHEN 


ij generate ('W", "XFL’, "Index overflow, results undefined’, '') 


"red 2C, pg ZI, 


in %F°), 


Cc 
— 
= 
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SSBTTL "MSGTXT.REQ == Other macro definitions’ 


i TORS2O SEVERITY. CODE translates the VMS error message severity 
! code to the codes historically used by DSR. ne § ropes ng codes 


! are compatible with the batch processor on TOP 4 are also 
: used in the PDP-11 for compatiblity with the original DSR codes. 
MACRO 

tops20_severity_code (vms_severity_code) = 
BIF .yasseverity_code EQL ‘WwW’ ZTHEN ‘2° ! Warning ss> ‘g"' 
BE: gyae.sever ity_code EQL 'S* ZTHEN * ° ! Success edie 
Bd, gyes.soverity_code EQL ‘E* THEN ‘2* ! Error s=> ‘'Z"' 
Sit .yas.severity_code EQL "I* ZTHEN * ° ! Information ==>" " 
ay vms_severity_code EQL ‘F* XTHEN ‘?° ! Fatal s=> ‘*?"' 
ZIF vms_severity_code EQL '* THEN ‘' ' Null —™ 
% “A ts ! Undefined ==> ‘*?"' 


L 
ZF SFL RFI SFI SFI SFI 
%; 


PDP11_MESSAGE_TEXT takes the severity code, and the two text strings 
and determines which string to return. This is used in the PDP-11 
environment where we do not wish to compile in the full message because 
of memory (space) constraints. Therefore, when a concise message 
exists for an error message, it is used; all other messages are 
preserved in full. 


= 
oOo 


0 

pdp1l_message_text (sev, text, ctext) = 
ZIF ZCHARCOUNT (SEV) EQL 0 

ZTHEN 


text 
ZELSE 
text 
FI 
iq; 


i The next macro () is used to build the text string for any and all 
messages. It sets up different formats for the different systems. 


i Format of VMS messages: 
%<facility>-<severity>-<identification> <text> 


! Where: 
IF DSRPLUS ZTHEN 


10 
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Facility code is DSRPLUS. 


' 
ZELSE 
: Facility code is RUNOFF. 


iF 
Severity codes used are as follows: 
= Informational 


OT me es eal eal) 
nnnnn 

wn” 

c 

oa 

o 

@ 

y 

wr 


Message is never envoked! 
Identification is a unique three letter code. 


ACRO 
error_string (sev, code, text, ctext)= 


Z1F ae 15S Co. 55316) Z THEN 

ZIF DOSR16_RSX XTHEN 

ZIF XCH ARTOUNT (sev) NEQ 0 &THEN 

_ "DSR =-- *, tops20_severity_code (sev), code, ' ', 


pdpll_message_text (sev, text, ctext) 
ZELSE 


ZIF DOSR16_RSTS XTHEN 
ZIF %CHARTOUNT (SEV) ,NEQ. . XTHEN 
art ‘Z", code, ° - 


pdpil_message_text (sev, text, ctext) 
ZELSE 


ZF XCHARCOUNT(SEV) NEQ 0 XTHEN 

= tops20_severity_code (sev), ‘RNF', code, * ‘, 
gfe"! _sessoge_tent (sev, text, ctext) 

ZF1 FI oF 

ZIF ZBLISS(BLISS32) XTHEN 

“FI text 


ZIF BOL 155 (04 17530) THEN For TOPS-10 & TOPS-20: 


ZIF sev NEQ ‘ THEN ' ALL monqgages except informationals: 
tops2 piu. code (sev), 'RNF', code, 
ZELSE '” Informational messages: 


ZIF code EQL ‘GFC* ZTHEN ! RNF GF C eu identify itself 
wei sh? _severity_code (sev), "RNF", code, 


wef) 
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ALL other informationals will not {dene tty themselves. “eS 
exception of those name in the next ZIF, they will be prefixed Meith a 
<TAB> character: 


' 

i 

i 

i 

i 

ZIF (code NEQ 'PCT') ow (code NEQ *ERD* ) AND (code NEQ 'NED') 
AND (code NEQ ‘PC2") AND (code NEQ 'PC3') 


ZIF OSRPLUS XTHEN 

AND (code NEQ ‘PC4") AND (code NEQ 'PCS') 
XTHEN 
MF XF1 MFI 


text 
FI 


i The macro CSTRING will take as many parameters as needed, concatinate 
them, and generate a counted string as a result. 


MACRO 
cstring C) = ZSTRING (ZCHAR (ZCHARCOUNT (XZREMAINING)), ZREMAINING) 2%; 
! End of MSGTXT.REQ 
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